home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / edt10.lha / S / Edt / VSplitWin.edt < prev   
Text File  |  1995-02-28  |  255b  |  17 lines
  1. /* Fenster vertikal teilen */
  2. OPTIONS RESULTS
  3.  
  4. 'Get' WINDOWID
  5. me=RESULT
  6. 'Get' WINDOWHEIGHT
  7. h=RESULT%2
  8. 'Set' WINDOWHEIGHT h
  9. 'Get' WINDOWTOP
  10. t=RESULT+h
  11. 'Get' WINDOWWIDTH
  12. w=RESULT
  13. 'Get' WINDOWLEFT
  14. l=RESULT
  15. 'NewWindow'
  16. 'SetWindowBox' l t w h
  17. 'SelectWindow' me